home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 October / EnigmA AMIGA RUN 01 (1995)(G.R. Edizioni)(IT)[!][issue 1995-10][Aminet 7].iso / Aminet / comm / bbs / ta_brb.lha / BRB.TRANS < prev    next >
Text File  |  1995-06-04  |  539b  |  19 lines
  1. /* $VER: TA-BRB script v.01 (6/4/95) for TransAmiga by John Kratz
  2.    Fidonet 1:2608/22.0, Internet jkratz@erc.cat.syr.edu
  3. */
  4. options results
  5. userinfo a ;username = result
  6. userinfo x ; term=result
  7. if TERM = 'OFF' then TERM = 0
  8. if TERM = 'ON' then TERM = 1
  9. if TERM ~= 1 then sendfile 'BBS:Text/BRB.txt'
  10. else sendfile "BBS:Text/BRB.ansi"
  11.         Do Until Upper(KeyPress)~="RESULT"&Upper(KeyPress)~="NOCHAR"
  12.     Maygetchar
  13.     KeyPress=result
  14.         If KeyPress = "###PANIC" then Exit 10
  15. End
  16. cls
  17. transmit 'Welcome back 'username
  18. transmit ''
  19. exit 10